home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / SCRNE1.SDA / HYPERDRIVE! (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  55 lines
  1. 10 REM  HYPERDRIVE!
  2. 20 FORI=49152TO49621:READA%:POKEI,A%:NEXT:POKE53280,0:POKE53281,0
  3. 30 PRINT"[147][129]               HYPERDRIVE!"
  4. 40 A$="THANK YOU!"
  5. 50 SYS49152:PRINT"":END
  6. 60 REM SET SCREEN COLORS, PRINT COLORS &ARRANGE SCREEN BEFORE CALLING MACHINE   LANGUAGE ROUTINE. PRESS ANY KEY TO EXIT WITH MESSAGE. THE MESSAGE IS THE LAST
  7. 70 REM STRING VARIABLE DECLARED BEFORE  CALLING THE ROUTINE. THE MC RESIDES IN  THE FREE RAM ABOVE BASIC.
  8. 49152 DATA169,0,133,198,169,0,141,227,192,32
  9. 49162 DATA75,192,32,157,192,32,185,192,169,49
  10. 49172 DATA205,18,208,208,251,165,198,208,10,174
  11. 49182 DATA227,192,224,242,208,229,76,4,192,160
  12. 49192 DATA2,177,71,153,63,192,136,208,248,169
  13. 49202 DATA147,32,22,231,162,0,177,71,240,14
  14. 49212 DATA141,71,192,189,0,255,32,210,255,232
  15. 49222 DATA224,0,208,245,96,174,227,192,189,228
  16. 49232 DATA192,141,160,192,232,189,228,192,141,161
  17. 49242 DATA192,232,189,228,192,141,163,192,232,189
  18. 49252 DATA228,192,141,164,192,232,189,228,192,141
  19. 49262 DATA190,192,232,189,228,192,141,191,192,232
  20. 49272 DATA189,228,192,141,193,192,232,189,228,192
  21. 49282 DATA141,194,192,232,189,228,192,141,158,192
  22. 49292 DATA232,189,228,192,141,186,192,232,189,228
  23. 49302 DATA192,168,232,142,227,192,96,162,0,140
  24. 49312 DATA255,255,140,255,255,238,160,192,208,3
  25. 49322 DATA238,161,192,238,163,192,208,3,238,164
  26. 49332 DATA192,202,208,231,96,162,0,240,37,140
  27. 49342 DATA255,255,140,255,255,24,173,190,192,105
  28. 49352 DATA40,144,3,238,191,192,141,190,192,24
  29. 49362 DATA173,193,192,105,40,144,3,238,194,192
  30. 49372 DATA141,193,192,202,208,219,96,0,244,5
  31. 49382 DATA245,5,0,0,0,0,1,0,160,203
  32. 49392 DATA5,27,6,243,5,246,5,4,1,160
  33. 49402 DATA244,5,244,5,0,0,0,0,2,0
  34. 49412 DATA32,162,5,66,6,202,5,207,5,6
  35. 49422 DATA3,160,203,5,27,6,243,5,246,5
  36. 49432 DATA4,1,32,121,5,105,6,161,5,168
  37. 49442 DATA5,8,5,160,162,5,66,6,202,5
  38. 49452 DATA207,5,6,3,32,80,5,144,6,120
  39. 49462 DATA5,129,5,10,7,160,121,5,105,6
  40. 49472 DATA161,5,168,5,8,5,32,39,5,183
  41. 49482 DATA6,79,5,90,5,12,9,160,80,5
  42. 49492 DATA144,6,120,5,129,5,10,7,32,254
  43. 49502 DATA4,222,6,38,5,51,5,14,11,160
  44. 49512 DATA39,5,183,6,79,5,90,5,12,9
  45. 49522 DATA32,213,4,5,7,253,4,12,5,16
  46. 49532 DATA13,160,254,4,222,6,38,5,51,5
  47. 49542 DATA14,11,32,172,4,44,7,212,4,229
  48. 49552 DATA4,18,15,160,213,4,5,7,253,4
  49. 49562 DATA12,5,16,13,32,131,4,83,7,171
  50. 49572 DATA4,190,4,20,17,160,172,4,44,7
  51. 49582 DATA212,4,229,4,18,15,32,90,4,122
  52. 49592 DATA7,130,4,151,4,22,19,160,131,4
  53. 49602 DATA83,7,171,4,190,4,20,17,32,90
  54. 49612 DATA4,122,7,130,4,151,4,22,19,32
  55.